home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: Internet
/
Chip Internet.iso
/
viewer
/
qpeg
/
drvsrc
/
ss24x.asm
< prev
next >
Wrap
Assembly Source File
|
1994-05-01
|
2KB
|
91 lines
;
; QPEG video driver
; for Diamond SpeedStar 24X
;
; Written by Jan van Loenen for QPEG
;
.286
Code Segment Para 'Code'
Assume cs:Code
Org 100h
Procs dw Bank,Init,Exit,0
Bank: shl al,4
push ax
mov dx,03ceh
mov al,09h
out dx,al
inc dx
pop ax
push ax
out dx,al
dec dx
mov al,0ah
out dx,al
inc dx
pop ax
out dx,al
retf
Init: mov dx,03ceh
mov al,0fh
out dx,al
inc dx
mov al,05h
out dx,al
mov dx,03c4h
mov al,06h
out dx,al
inc dx
mov al,48h
out dx,al
mov dx,03d4h
mov al,29h
out dx,al
inc dx
mov al,85h
out dx,al
dec dx
mov al,2fh
out dx,al
inc dx
in al,dx
and al,0fdh
out dx,al
mov dx,03ceh
mov al,0bh
out dx,al
inc dx
in al,dx
or al,08h
out dx,al
mov dx,03c4h
mov al,11h
out dx,al
inc dx
in al,dx
or al,80h
out dx,al
retf
Exit: mov dx,03ceh
mov al,0fh
out dx,al
inc dx
xor al,al
out dx,al
dec dx
mov al,06h
out dx,al
inc dx
xor al,al
out dx,al
retf
Code Ends
End Procs
; End of source.